home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Amiga Public Domain Connection / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].zip / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].adf / Modula-2 / m2 / TerminalBase.DEF < prev    next >
Text File  |  1988-03-15  |  940b  |  33 lines

  1. (********************************************************************************
  2.  
  3. Name         : TerminalBase.DEF
  4. Version      : 1.0
  5. Purpose      : Possibility to redirect Terminal  
  6. Authors      : ms
  7. Modified     : 13.3.86  10:16  ms
  8. State        : should be ok
  9. Requirements : 
  10.  
  11. ********************************************************************************)
  12.  
  13. DEFINITION MODULE TerminalBase;
  14.  
  15. FROM SYSTEM IMPORT ADDRESS;
  16.  
  17. TYPE BusyReadProc = PROCEDURE(VAR CHAR);
  18.      WriteProc    = PROCEDURE(ADDRESS, LONGINT);
  19.  
  20. (* assignement of new procedures *)
  21. PROCEDURE AssignBusyRead(rp: BusyReadProc; VAR ok: BOOLEAN);
  22. PROCEDURE AssignWrite(wp: WriteProc; VAR ok: BOOLEAN);
  23.  
  24. (* currently assigned procedures *)
  25. PROCEDURE BusyRead(VAR ch: CHAR);
  26. PROCEDURE Write(buffer: ADDRESS; length: LONGINT);
  27.  
  28. (* Modula program window *)
  29. PROCEDURE StandardBusyRead(VAR ch: CHAR);
  30. PROCEDURE StandardWrite(buffer: ADDRESS; length: LONGINT);
  31.  
  32. END TerminalBase.
  33.